home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / cafe.frm < prev    next >
Text File  |  1999-10-06  |  11KB  |  345 lines
  1. VERSION 4.00
  2. Begin VB.Form Cafe 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   6945
  6.    ClientLeft      =   0
  7.    ClientTop       =   375
  8.    ClientWidth     =   9660
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   7380
  12.    Icon            =   "Cafe.frx":0000
  13.    Left            =   -60
  14.    LinkTopic       =   "Cafe"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   9200
  18.    ScaleMode       =   0  'User
  19.    ScaleWidth      =   9660
  20.    ShowInTaskbar   =   0   'False
  21.    Top             =   0
  22.    Width           =   9780
  23.    WindowState     =   2  'Maximized
  24.    Begin VB.Timer Timer2 
  25.       Enabled         =   0   'False
  26.       Interval        =   1000
  27.       Left            =   7110
  28.       Top             =   4305
  29.    End
  30.    Begin VB.TextBox txtTime 
  31.       Height          =   360
  32.       Left            =   5265
  33.       Locked          =   -1  'True
  34.       TabIndex        =   7
  35.       Top             =   3120
  36.       Visible         =   0   'False
  37.       Width           =   1815
  38.    End
  39.    Begin VB.Timer Timer1 
  40.       Enabled         =   0   'False
  41.       Interval        =   60000
  42.       Left            =   6315
  43.       Top             =   4290
  44.    End
  45.    Begin VB.CommandButton cmdLogOn 
  46.       Caption         =   "Log On"
  47.       Height          =   360
  48.       Left            =   2670
  49.       TabIndex        =   6
  50.       Top             =   3120
  51.       Visible         =   0   'False
  52.       Width           =   915
  53.    End
  54.    Begin VB.TextBox txtPass 
  55.       Height          =   360
  56.       Left            =   3975
  57.       PasswordChar    =   "*"
  58.       TabIndex        =   5
  59.       Top             =   3120
  60.       Width           =   1020
  61.    End
  62.    Begin VB.Label Label6 
  63.       Alignment       =   2  'Center
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Click Here To Log Off"
  66.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  67.          Name            =   "Nuptial BT"
  68.          Size            =   14.25
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   &H000000FF&
  76.       Height          =   375
  77.       Left            =   3075
  78.       TabIndex        =   8
  79.       Top             =   5580
  80.       Visible         =   0   'False
  81.       Width           =   3315
  82.    End
  83.    Begin VB.Label Label5 
  84.       Alignment       =   2  'Center
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "            Or Click Here To             Play Games Offline"
  87.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  88.          Name            =   "Nuptial BT"
  89.          Size            =   14.25
  90.          Charset         =   0
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H0000C000&
  97.       Height          =   615
  98.       Left            =   2970
  99.       TabIndex        =   4
  100.       Top             =   4560
  101.       Visible         =   0   'False
  102.       Width           =   3225
  103.    End
  104.    Begin VB.Label Label4 
  105.       Alignment       =   2  'Center
  106.       BackStyle       =   0  'Transparent
  107.       Caption         =   "     Password Correct      Click Here To Connect"
  108.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  109.          Name            =   "Nuptial BT"
  110.          Size            =   15.75
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H0000C000&
  118.       Height          =   780
  119.       Left            =   2970
  120.       TabIndex        =   3
  121.       Top             =   3630
  122.       Visible         =   0   'False
  123.       Width           =   3300
  124.    End
  125.    Begin VB.Label Label3 
  126.       Alignment       =   2  'Center
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "To Connect To The Internet  Enter  Your Password"
  129.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  130.          Name            =   "MS Sans Serif"
  131.          Size            =   24
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       ForeColor       =   &H000000FF&
  139.       Height          =   1155
  140.       Left            =   1110
  141.       TabIndex        =   2
  142.       Top             =   1920
  143.       Width           =   7305
  144.    End
  145.    Begin VB.Label Label2 
  146.       Alignment       =   2  'Center
  147.       BackStyle       =   0  'Transparent
  148.       Caption         =   "Welcome To"
  149.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  150.          Name            =   "Nuptial BT"
  151.          Size            =   36
  152.          Charset         =   0
  153.          Weight          =   700
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       ForeColor       =   &H00FFC0FF&
  159.       Height          =   810
  160.       Left            =   2145
  161.       TabIndex        =   1
  162.       Top             =   75
  163.       Width           =   4860
  164.    End
  165.    Begin VB.Label Label1 
  166.       Alignment       =   2  'Center
  167.       Appearance      =   0  'Flat
  168.       BackColor       =   &H80000005&
  169.       BackStyle       =   0  'Transparent
  170.       Caption         =   "Internet Cafe"
  171.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  172.          Name            =   "Nuptial BT"
  173.          Size            =   72
  174.          Charset         =   0
  175.          Weight          =   700
  176.          Underline       =   0   'False
  177.          Italic          =   -1  'True
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       ForeColor       =   &H00FFFFFF&
  181.       Height          =   1560
  182.       Left            =   465
  183.       TabIndex        =   0
  184.       Top             =   465
  185.       Width           =   8190
  186.    End
  187. End
  188. Attribute VB_Name = "Cafe"
  189. Attribute VB_Creatable = False
  190. Attribute VB_Exposed = False
  191. Option Explicit
  192.  
  193.  
  194. Private Sub cmdLogOn_Click()
  195. Dim strResult As String * 60 'no variable length strings allowed
  196. Dim lngResult As Long
  197. Dim strFileName As String
  198. strFileName = App.Path & "\Passwords.ini"
  199. On Error GoTo Err
  200. If txtPass.Text = "" Then Exit Sub 'must type something
  201. lngResult = GetPrivateProfileString("Passwords", _
  202. txtPass.Text, strFileName, strResult, Len(strResult), _
  203. strFileName)
  204. txtTime.Text = Trim(strResult)
  205. If Len(txtTime.Text) > 3 Then '999 minute limit
  206. 'a longer return string means there was no entry and
  207. 'a filename was returned
  208. MsgBox "Password is invalid."
  209. txtPass.Text = "" 'reset
  210. txtPass.SetFocus 'get cursor back to textbox
  211. cmdLogOn.Visible = False
  212. ElseIf txtTime.Text = "0" Then
  213. MsgBox "Time has expired on this password."
  214. txtPass.Text = ""
  215. txtPass.SetFocus
  216. Else
  217. MsgBox "Remember to Log Off when finished or your time will continue. Please close all programs before you Log Off or time expires."
  218. Timer2.Enabled = False 'turn everything on for user
  219. cmdLogOn.Visible = False
  220. Label4.Visible = True
  221. Label5.Visible = True
  222. Label6.Visible = True
  223. Timer1.Enabled = True
  224. txtTime.Visible = True
  225. txtPass.Visible = False
  226. txtTime.Text = txtTime.Text & "  minutes remaining."
  227. End If
  228. Exit Sub
  229. Err:
  230. MsgBox "Error"
  231. End Sub
  232.  
  233. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  234. KeyLog KeyCode, Shift 'this is for the admin password only
  235. End Sub
  236.  
  237. Private Sub Form_Load()
  238. AdjustForm Me
  239. DisableKeys True 'comment out for safety
  240. TaskBar False
  241. End Sub
  242.  
  243.  
  244. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  245. Cancel = True
  246. End Sub
  247.  
  248. Private Sub Form_Resize()
  249. FormResize Me
  250. End Sub
  251.  
  252.  
  253. Private Sub Form_Unload(Cancel As Integer)
  254. DisableKeys False
  255. End